home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / mmlc / sample / sample2.m2 < prev    next >
Encoding:
Text File  |  1995-07-24  |  8.6 KB  |  219 lines
  1. /*
  2.    Tommorow  ******************************************
  3.    Composed & arranged & programmed By SHINNOSYKE 1995
  4.   *****************************************************
  5. */
  6. .title     Tommorow
  7. .copyright (c)SHINNOSUKE 1995
  8.  
  9. .tempo 110
  10. .signature 4/4
  11.  
  12. .division 480
  13.  
  14. .memo GM system Level 1
  15. .memo Make:SC55 mk 2
  16.  
  17. .begin
  18.  
  19. GM {
  20. 16[1]=@X[7E 7F 09 01]R2;
  21. }
  22.  
  23. SET {
  24.  1[1]=@33 @C91/100 @C93/0 V15Q8%C;
  25.  2[1]=@27  @C91/100 @C93/80 V15Q7%C;
  26.  3[1]=@1  @C91/100 @C93/0 V13Q6%C;
  27.  4[1]=@81 @C91/90 @C93/70 V10Q8%C;
  28.  5[1]=@49 @C91/100 @C93/100 V10Q8%L32;
  29.  6[1]=@49 @C91/100 @C93/100 V10Q8%R32;
  30. 10[1]=    @C91/60 @C93/100 Q1R2;
  31. }
  32.  
  33. SE {
  34.  7[1]=@125 V12 $(c2&c8r4.)4;
  35. }
  36.  
  37. SECTION_D_0 {
  38.  1[1]=L2O2 <f1 L8g.a.b >c2&c1;
  39.  2[1]=L8O4 <b.>c16c4 rcgc <b.>c.d c2&c1;
  40.  3[1]=O4 (<f1|a1|>c1)(<g2|b2|>d2)(<g2&g1|>c2&c1|e2&e1);
  41. 10[1]=L8O2 >c+1,100<r4r8>c+,100<;
  42. 10[2]=L8O2 r1r2c.,100c.,100d,110
  43.            d,110b,100b16,100a,100a16,100g16,90g16,90g16,80d16,90d,110r;
  44. }
  45.  
  46. SECTION_A_1 {
  47.  1[1]=L2O2 $(c<bagfg>c1)2;
  48.  2[1]=L8O4 e16egf16e d.c.<b> c2 &c4^8<a16>c16 d.c.<b a.b.>d e1
  49.            e16egf16e d.c.<b> c2 &c4^8<a16>c16 d.c.<b a.b.>d c1;
  50.  3[1]=L4O4 (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  51.            (<ff>|cc)(<gg>|dd)(cccc|eeee)
  52.            (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  53.            (<ff>|cc)(<gg>|dd)(cccc|eeee);
  54. 10[1]=L8O2 >c+,100<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  55.            f+,100f+,40f+,100r
  56.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  57.            f+,100f+,40f+,100r;
  58. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  59.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  60.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  61.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  62. }
  63.  
  64. SECTION_B_1 {
  65.  1[1]=L2O2 <$(fga1)3 fga a8.b8.>c8;
  66.  2[1]=L8O4 <a.>c<b16a b.>dc16<b> c2e.d.c
  67.            <a.>c<b16a b.>dc16<b> c2<a.b.>c
  68.            <a.>c<b16a b.>dc16<b> c2e.d.c
  69.            <a.>c<b16a b.>dc16<b> c2c.d.e;
  70.  3[1]=L2O4 $((<f>|<a>|c)(<g>|<b>|d)(<a1>|c1|e1))4;
  71. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  72.            f+,100f+,40f+,100r
  73.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  74.            f+,100f+,40f+,100r;
  75. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  76.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  77.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  78.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  79. }
  80.  
  81. SECTION_C_1 {
  82.  1[1]=L2O2 $(c<ba+a>dc+c<b>)2;
  83.  2[1]=L16O4 eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  84.             d8.dd.e.f e8.ee.f.g f8.ff.g.a g8f8e8d8
  85.             eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  86.             $(g8.f8.ef)3g8f8e8d8;
  87.  3[1]=L4O4 (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  88.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff)
  89.            (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  90.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff);
  91. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  92.            f+,100f+,40f+,100r
  93.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  94.            f+,100f+,40f+,100r;
  95. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  96.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  97.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  98.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  99. }
  100.  
  101. SECTION_D_1 {
  102.  1[1]=L2O2 <f1 L8g.a.b >c2&c1;
  103.  2[1]=L8O4 <b.>c16c4 rcgc <b.>c.d c2&c1;
  104.  3[1]=O4 (<f1|a1|>c1)(<g2|b2|>d2)(<g2&g1|>c2&c1|e2&e1);
  105. 10[1]=L8O2 >c+1,100<r4r8>c+,100<;
  106. 10[2]=L8O2 r1r2c.,100c.,100d,110
  107.            d,110b,100b16,100a,100a16,100g16,90g16,90g16,80d16,90d,110r;
  108. }
  109.  
  110. SECTION_E_1 {
  111.  1[1]=L2O2 $(c<bagfg>c1)2;
  112.  3[1]=L4O4 (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  113.            (<ff>|cc)(<gg>|dd)(cccc|eeee)
  114.            (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  115.            (<ff>|cc)(<gg>|dd)(cccc|eeee);
  116. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  117.            f+,100f+,40f+,100r
  118.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  119.            f+,100f+,40f+,100r;
  120. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  121.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  122.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  123.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  124. }
  125.  
  126. SECTION_A_2 {
  127.  1[1]=L2O2 $(c<bagfg>c1)2;
  128.  2[1]=L8O4 e16egf16e d.c.<b> c2 &c4^8<a16>c16 d.c.<b a.b.>d e1
  129.            e16egf16e d.c.<b> c2 &c4^8<a16>c16 d.c.<b a.b.>d c1;
  130.  3[1]=L4O4 (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  131.            (<ff>|cc)(<gg>|dd)(cccc|eeee)
  132.            (cc|gg)(<bb>|gg)(<aa>|ee)(<gg>|ee)
  133.            (<ff>|cc)(<gg>|dd)(cccc|eeee);
  134. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  135.            f+,100f+,40f+,100r
  136.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  137.            f+,100f+,40f+,100r;
  138. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  139.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  140.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  141.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  142. }
  143.  
  144. SECTION_B_2 {
  145.  1[1]=L2O2 <$(fga1)3 fga a8.b8.>c8;
  146.  2[1]=L8O4 <a.>c<b16a b.>dc16<b> c2e.d.c
  147.            <a.>c<b16a b.>dc16<b> c2<a.b.>c
  148.            <a.>c<b16a b.>dc16<b> c2e.d.c
  149.            <a.>c<b16a b.>dc16<b> c2c.d.e;
  150.  3[1]=L2O4 $((<f>|<a>|c)(<g>|<b>|d)(<a1>|c1|e1))4;
  151. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  152.            f+,100f+,40f+,100r
  153.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  154.            f+,100f+,40f+,100r;
  155. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  156.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  157.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  158.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  159. }
  160.  
  161. SECTION_C_2 {
  162.  1[1]=L2O2 $(c<ba+a>dc+c<b>)2;
  163.  2[1]=L16O4 eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  164.             d8.dd.e.f e8.ee.f.g f8.ff.g.a g8f8e8d8
  165.             eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  166.             $(g8.f8.ef)3g8f8e8d8;
  167.  3[1]=L4O4 (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  168.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff)
  169.            (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  170.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff);
  171.  4[1]=O5L16 $(<g>cec)2$(<gb>e<b>)2$(<ga+>e<a+>)2$(<ga>e<a>)2
  172.             $(<a>dfd)2$(<a>c+fc+)2$(<a>cfc)2$(<ab>f<b>)2
  173.             $(<g>cec)2$(<gb>e<b>)2$(<ga+>e<a+>)2$(<ga>e<a>)2
  174.             $(<a>dfd)2$(<a>c+fc+)2$(<a>cfc)2$(<ab>f<b>)2;
  175. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  176.            f+,100f+,40f+,100r
  177.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  178.            f+,100f+,40f+,100r;
  179. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  180.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  181.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  182.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  183. }
  184.  
  185. SECTION_C_3 {
  186.  1[1]=L2O2 $(c<ba+a>dc+c<b>)2;
  187.  2[1]=L16O4 eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  188.             d8.dd.e.f e8.ee.f.g f8.ff.g.a g8f8e8d8
  189.             eeeee.f.g $(e8.ee.f.g)2 a8g8f8e8
  190.             $(g8.f8.ef)3g8f8e8d8;
  191.  3[1]=L4O4 (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  192.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff)
  193.            (<gg>|cc|ee) (<gg|bb|>ee) (<gg|a+a+|>ee) (<gg|aa|>ee)
  194.            (<aa>|dd|ff) (<aa|>c+c+|ff) (<aa|>cc|ff) (<aa|bb|>ff);
  195.  4[1]=O5L16 $(<g>cec)2$(<gb>e<b>)2$(<ga+>e<a+>)2$(<ga>e<a>)2
  196.             $(<a>dfd)2$(<a>c+fc+)2$(<a>cfc)2$(<ab>f<b>)2
  197.             $(<g>cec)2$(<gb>e<b>)2$(<ga+>e<a+>)2$(<ga>e<a>)2
  198.             $(<a>dfd)2$(<a>c+fc+)2$(<a>cfc)2$(<ab>f<b>)2;
  199.  5[1]=L2O5 e&e&e&ef&f&f&f g&g&g&ga&a&a&a;
  200.  6[1]=L2O5 g&g&g&ga&a&a&a e&e&e&ef&f&f&f;
  201. 10[1]=L8O2 >c+,80<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  202.            f+,100f+,40f+,100r
  203.            >c+,60<f+,40f+,100f+,50$(f+,100f+,40f+,100f+,50)6
  204.            f+,100f+,40f+,100r;
  205. 10[2]=L8O2 c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  206.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100
  207.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100r
  208.            c,100rd,100rc,100c,90d,100r c,100rd,100rc,100rd,100d16,80d16,100;
  209. }
  210.  
  211. SECTION_D_2 {
  212.  1[1]=L2O2 <f1 L8g.a.b >c2&c1;
  213.  2[1]=L8O4 <b.>c16c4 rcgc <b.>c.d c2&c1;
  214.  3[1]=O4 (<f1|a1|>c1)(<g2|b2|>d2)(<g2&g1|>c2&c1|e2&e1);
  215. 10[1]=L8O2 >c+1,100<;
  216. 15[1]=r1 $(t-4r8)16;
  217. }
  218.  
  219.